home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DS-CD ROM 2 1993 August
/
DS CD-ROM 2.Ausgabe (August 1993).iso
/
programm
/
ds0248
/
svga256.inc
< prev
next >
Wrap
Text File
|
1992-02-27
|
1KB
|
41 lines
(************************************************)
(* *)
(* SuperVGA 256 BGI driver defines *)
(* Copyright (c) 1991 *)
(* Jordan Hargraphix Software *)
(* *)
(************************************************)
type DacPalette256 = array[0..255] of array[0..2] of Byte;
(* Die sind die zur Zeit unterstützten Modi *)
const
SVGA320x200x256 = 0; (* 320x200x256 Standard VGA *)
SVGA640x400x256 = 1; (* 640x400x256 Svga *)
SVGA640x480x256 = 2; (* 640x480x256 Svga *)
SVGA800x600x256 = 3; (* 800x600x256 Svga *)
SVGA1024x768x256 = 4; (* 1024x768x256 Svga *)
XNOR_PUT = 5;
NOR_PUT = 6;
NAND_PUT = 7;
TRANS_COPY_PUT = 8; (* Funktioniert nicht bei 16 Farben *)
(* Setvgapalette setzt die komplette 256-Farben-Palette *)
(* PalBuf enthält RGB-Werte für alle 256 Farben *)
(* R,G,B-Werte reichen von 0 bis 63 *)
procedure SetVGAPalette256(PalBuf : DacPalette256);
var
Reg : Registers;
begin
reg.ax := $1012;
reg.bx := 0;
reg.cx := 256;
reg.es := Seg(PalBuf);
reg.dx := Ofs(PalBuf);
intr($10,reg);
end;